home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs07.d81
/
tbasic.arc
/
TRANSBASIC
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2009-10-10
|
191b
|
10 lines
100 IF PEEK(773)<192 GOTO120
110 _A :REM EXIT
120 IF A=1 GOTO140
130 A=1:LOAD"TB/ADD.OBJ",8,1
140 SYS49152:REM ENABLE TB/ADD
150 A$=CHR$(34)+"TB/KERNEL"+CHR$(34)
160 PRINT"[147]LOAD"A$",8"
170 POKE 198,1
180 POKE 631,13